Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Utility/CNIF_MacroMaker 1.4.sit/CNIF_MacroMaker 1.4/CNIF_MacroMaker/background_3798.xml

Extensible Markup Language | 1999-01-11 | 75KB | 1,592 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3798</id>
    <filler1>0</filler1>
    <bitmap>BMAP_7271.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>63</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>196</left>
            <top>239</top>
            <right>219</right>
            <bottom>259</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <name><<</name>
        <script>on mouseUpglobal CNMeditTextput the selectedText of bg fld id 12 into cTextif cText is empty then put the selectedText of bg fld id 18 into cTextif cText is not in bg fld id 11 and cText <> empty thenif the number of lines of bg fld id 11 >= 10 thenbeepanswer "ﾃ①ﾃ ﾃ催ｬxﾃ‡窶ｦﾃｫﾃｳﾃｪMﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃε‡ﾃ•10ﾃｱﾂｺﾃ⑿ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ⒀ﾃ‡窶ｹﾃ‡竕暗‡竕暗‡竏妥③"elseput cText & return after bg fld id 11put true into CNMeditText-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑send "mouseUp" to bg btn id 35end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>61</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>22</left>
            <top>34</top>
            <right>348</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownset the textAlign of bg fld id 8 to rightend mouseDownon mouseUpset the textAlign of bg fld id 8 to leftend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>22</left>
            <top>128</top>
            <right>393</right>
            <bottom>144</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end closeFieldon exitFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end exitField</script>
    </part>
    <part>
        <id>60</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>22</left>
            <top>157</top>
            <right>393</right>
            <bottom>173</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end closeFieldon exitFieldcheckTextL "40","ﾃｫﾃ凝ｱﾂｺ"end exitField</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>354</left>
            <top>99</top>
            <right>393</right>
            <bottom>115</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｫIﾃｫï｣ｿ...</name>
        <script>on mouseUpsend "mouseUp" to bg fld id 42end mouseUp</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>354</left>
            <top>70</top>
            <right>393</right>
            <bottom>86</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｫIﾃｫï｣ｿ...</name>
        <script>on mouseUpif the optionKey is down thenanswer "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃεｩwﾃｭﾃ凝‡ï｣ｿﾃ丑ﾃ嘉､ﾃ陰ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "OK" or "Cancel"if it is "OK" thenput empty into bg fld id 8end ifelsesend "mouseUp" to bg fld id 8end ifend mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>4</top>
            <right>194</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>mainMenu</name>
        <script>on mouseDownmainMenuend mouseDown</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>200</left>
            <top>4</top>
            <right>445</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenu</name>
        <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>330</top>
            <right>12</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>47</top>
            <right>348</right>
            <bottom>86</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpset the cursor to watchif the optionKey is down thendelete the clicklineelseput (the shiftKey is down) into sftanswer file "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ‡竏妥‡ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃ陛‡ﾂｫﾃ‡ﾃ催‡竕暗‡竏妥‡ﾂｩﾃ③" -- of type "SITD" or "PACT" or "LHA " or "APPL"if it is empty then exit mouseUpif sft thenif MtScanList(me,it,,true) is empty thenput it & return after meend ifelseput it & return into meend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>192</top>
            <right>191</right>
            <bottom>306</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseUpif the optionKey is down then put empty into meelse delete the selectedLine of meselect line 0 of meend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>224</left>
            <top>192</top>
            <right>393</right>
            <bottom>306</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragS,CNMeditTextput empty into dragSif the short id of this bg is 3798 thenif CNMeditText is true thensortIDList 11put false into CNMeditTextend ifget the selectedText of meget (it <> empty and "ﾃ①ﾃ⒣\｢ﾃ①" is not in it)set the enabled of bg btn id 24 to itif it then select line 0 of bg fld id 18get (the selectedText of bg fld id 18 <> empty)set the enabled of bg btn id 26 to itend ifpass mouseLeaveend mouseLeaveon mouseUpdragListget the resultset the cursor to watchif item 1 of it <> item 2 of it thendisable bg btn id 24disable bg btn id 26unlock screenselect line 0 of meexit mouseUpend ifselect line 0 of bg fld id 18put the selectedText of me into cTextif cText is empty then exit mouseUpget divName(cText)put item 1 of it into UserIDput item 2 of it into Handleif the optionKey is down thenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" then exit mouseUpdelete line (word 2 of the selectedline of bg fld id 12) of bg fld id 12select line 0 of bg fld id 12disable bg btn id 24elsewait 5if the mouseClick then  -- ﾃ 竏づｪﾃ甘嘉､ﾃ厩ﾃ曳ﾃ‡ﾃｷset the hilite of bg btn id 63 to truesend "mouseUp" to bg btn id 63set the hilite of bg btn id 63 to false-- select line 0 of meelse if the clickText is "ﾃ①ﾃ⒣\｢ﾃ①" thenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" thenif the visible of bg fld id 18 and the short name of bg btn id 20 <> UserID then send "mouseUp UserID" to bg btn id 20send "mouseUp UserID" to bg btn id 20disable bg btn id 24end ifelselock screenif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" then disable bg btn id 24else enable bg btn id 24disable bg btn id 26end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>47</top>
            <right>493</right>
            <bottom>87</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>25009</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ…[</name>
        <script>on mouseUpset the cursor to watchget dataCheck()if it <> empty thenbeepif "ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢" is in it then put "ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ï｣ｿﾃｧﾃ湘ｪﾂｨﾃ‡竏妥‡ﾃ催‡ﾅ津頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡ﾃε‡窶ｺﾃｫﾃｳﾃ‡ﾃ催‡窶ｹﾃ‡竏妥③" after itanswer "ﾃｪ窶ｺﾃｭﾃ凝‡邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ‡竕暗‡竏妥③" & return & return & itexit mouseUpend ifput"ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ…[ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ---> postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲put bg fld id 8 into upFileListrepeat with r = 1 to the number of lines of upFileListget line r of upFileListsend "upLoadFileCopy it" to first cd of bg "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄"get the resultif "ﾃ烏ﾃ嘉｢ﾃ…[" is in it thenanswer itend ifend repeatput "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put bg fld id 42 into filePath-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津‡ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathput "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"set the cursor to watchput empty into theTextopen file filePathrepeatread from file filePath for 16384if it is empty then exit repeatput it after theTextend repeatclose file filePathput delUPLoadCommand(theText) into theTextput address(theText) into theTextput UPLoadCommand(theText) into theTextput "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"MtWriteFile filePath,theText,EditorCreator()if the result is not empty thenanswer "ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺﾃ‡ﾃεｧ竄ｬﾃ‡窶ｦﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③" & return & the resultend ifput bg fld id 10 into oldtitleif "ﾃ⒇ﾃ…t" is in oldtitle or "ﾃ⒇Sﾃ…t" is in oldtitle thenput nextSMailTitle(oldtitle) into bg fld id 10put nextSMailTitle(bg fld id 60) into bg fld id 60end ifhide msgend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>224</left>
            <top>63</top>
            <right>393</right>
            <bottom>79</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp UserIDlock screenset cursor to watchif the visible of bg fld id 18 thenhide bg fld id 18hide bg btn id 20select line 0 of bg fld id 18disable bg btn id 26elseput groupList (UserID) into bg fld id 18set the name of me to UserIDshow bg fld id 18show bg btn id 20end ifunlock screen with wipe up fastend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>221</top>
            <right>489</right>
            <bottom>241</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•</name>
        <script>on mouseUpif the optionKey is down thenenterName2elseenterName1end ifend mouseUpon enterName1get enterUserName(,,the shiftKey is down)if it is empty then exit enterName1if line 2 of it is "OK" thenif line 1 of it is in "ﾃ 竏づｪﾃŠ,ﾃｳﾂｺﾃｯﾋš" thenput line 3 of it into uNameput bg fld id 11 into listif the number of lines of list < 10 thenif uName <> empty and uName is not in list thenput uName & return after bg fld id 11end ifelsebeepanswer "ﾃ①ﾃ ﾃ催ｬxﾃ‡窶ｦﾃｫﾃｳﾃｪMﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃε‡ﾃ•10ﾃｱﾂｺﾃ⑿ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ⒀ﾃ‡窶ｹﾃ‡竕暗‡竕暗‡竏妥③"end ifend ifif line 1 of it is in "IDﾃ嘉､ﾃ厩ﾃ曳,ﾃｳﾂｺﾃｯﾋš" thenput line 3 of it into uNameif uName <> empty and uName is not in bg fld id 12 thenputIDHandle uName,12end ifend ifelseif line 2 of it is "ﾃ ﾃ催､ﾃ｡ﾃｬﾂｸﾃｳﾃ•" then enterName2end ifend enterName1on enterName2answer file "IDﾃ嘉､ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & return & quote & "ID,ﾃｱﾂｺﾃｫO" & quote & " & return" of type textif it is empty then exit enterName2set the cursor to watch-- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺput it into filePathput empty into idListopen file filePathrepeatread from file filePath for 16384if it is empty then exit repeatput it after idListend repeatclose file filePathput bg fld id 12 into Fi12repeat with r = 1 to the number of lines of idListset cursor to busyget line r of idListif the number of items of it is 2 thenput item 1 of it into UserIDif "-" is in UserID and "@" is not in UserID thenif char 1 of UserID <> "F" thenput "F" before UserIDend ifput 0 into cnput UserID into cIDrepeat until "-" is not in cIDput offset("-",cID) into xnadd 1 to cndelete char 1 to xn of cIDend repeatif cn < 2 thennext repeatend ifelse if "@" is in UserID and "." is in UserID thenif char 1 to 5 of UserID <> "INET:" thenput "INET:" before UserIDelseput "INET:" into char 1 to 5 of UserIDend ifelse if the length of UserID <> 8 or char 4 to 8 of UserID is not a integer or UserID is empty thennext repeatend ifget UserID &tab& item 2 of itif (UserID & tab) is not in Fi12 then put it & return after Fi12end ifend repeatput Fi12 into bg fld id 12end enterName2</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>405</left>
            <top>292</top>
            <right>464</right>
            <bottom>310</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益</name>
        <script>on mouseUplock screen-- if the hilite of me then exit mouseUpset the hilite of bg btn "ID" to falseset the hilite of me to trueset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" to trueset the hilite of bg btn "ID" of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" to falsesortIDList 12sortIDList 11end mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>463</left>
            <top>292</top>
            <right>493</right>
            <bottom>310</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID</name>
        <script>on mouseUplock screen-- if the hilite of me then exit mouseUpset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" to falseset the hilite of me to trueset the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" to falseset the hilite of bg btn "ID" of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ" to truesortIDList 12sortIDList 11end mouseUp</script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>409</left>
            <top>246</top>
            <right>489</right>
            <bottom>266</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ID / ﾃｱﾂｺﾃｫOﾃｯﾅ禿ｧX</name>
        <script>on mouseUpput the selectedText of bg fld id 12 into txtif txt <> empty then changeIDHandle txtelse answer "ﾃｯﾅ禿ｧXﾃ‡竏妥‡ﾃˆID / ﾃｱﾂｺﾃｫOﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end mouseUpon changeIDHandle txtget divName(txt)put item 1 of it into UserIDput item 2 of it into Handleif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" thenexit changeIDHandleelseget line 3 of enterUserName (UserID,Handle)end if-- lock screenif it <> empty and MtScanList(bg fld id 12,it,,true) is empty thenput it into line (word 2 of the selectedline of bg fld id 12) of bg fld id 12-- sortIDList 12end ifend changeIDHandle</script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>451</left>
            <top>270</top>
            <right>489</right>
            <bottom>290</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｧﾃŒ ﾃｨﾃｺ</name>
        <script>on mouseUp mesput the selectedText of bg fld id 12 into txtif txt <> empty thendeleteIDHandle txtelseif mes is empty and the selectedLine of bg fld id 18 <> empty then put return & "ﾃ…ﾂｶﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾃオDﾃ‡ﾃ陛ｧﾃ古ｨﾃｺﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯ窶愿ｨWﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" into mesanswer "IDﾃ嘉､ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｫSﾃ‡ﾆ津ｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" & return & return & "IDﾃ‡ï｣ｿﾃ･ﾂｬﾃｯﾂ ﾃ‡窶ｦﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃ暗‡窶ｦﾃ‡ﾃ陛ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｧﾃ古ｨﾃｺﾃ閲ﾃ運ﾃ嘉ｬﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & mes with "OK" or "Cancel"if it is "Cancel" then exit mouseUpput bg fld id 12 into idListget divList(idList)put item 1 of it into bg fld id 12end ifend mouseUpon deleteIDHandle txtget divName(txt)put item 1 of it into UserIDput item 2 of it into Handleif Handle contains "ﾃ①ﾃ⒣\｢ﾃ①" thenselect line 0 of bg fld id 12mouseUp return & "ﾃ…ﾂｶﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾃ陛ｧﾃ古ｨﾃｺﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯ窶愿ｨWﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"exit deleteIDHandleend ifanswer quote & UserID & quote && Handle & "ﾃ‡竕･ﾃ‡ﾃ’ ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "OK" thendelete line (word 2 of the selectedline of bg fld id 12) of bg fld id 12select line 0 of bg fld id 12end ifend deleteIDHandle</script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>409</left>
            <top>270</top>
            <right>448</right>
            <bottom>290</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘘ﾃ鋭ﾃ…[</name>
        <script>on mouseUpput the selectedText of bg fld id 18 into txtif txt <> empty then moveIDHandle txtelse answer "ﾃ嘘ﾃ鋭ﾃ…[ﾃ‡竏妥‡ﾃˆID / ﾃｱﾂｺﾃｫOﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津ｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end mouseUpon moveIDHandle txtif bg fld id 12 is empty or MtScanList(bg fld id 12,txt,,true) is empty then-- put "IDﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃｱﾂｺﾃ嘉､ﾃ厩ﾃ曳ﾃ‡窶ｦﾃｭﾂｫﾃ｢ﾂ｡ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"putIDHandle txt,12end ifend moveIDHandle</script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>317</top>
            <right>305</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8349</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevBgend mouseUp</script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>306</left>
            <top>317</top>
            <right>326</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23718</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevCdend mouseUp</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>317</top>
            <right>345</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23717</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextCdend mouseUp</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>317</top>
            <right>366</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextBgend mouseUp</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>370</left>
            <top>317</top>
            <right>390</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13301</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevMcend mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>317</top>
            <right>409</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13302</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextMcend mouseUp</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>454</left>
            <top>317</top>
            <right>474</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoTopCdend mouseUp</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>318</top>
            <right>153</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>NIFTY-Navigator II</name>
        <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>109</left>
            <top>175</top>
            <right>191</right>
            <bottom>193</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑</name>
        <script>on mouseUpif the hilite of me then DupliCheckhide msgend mouseUpon DupliCheckput bg fld id 11 into checkListif "ﾃ①ﾃ⒣\｢ﾃ①" is not in checkList then exit DupliCheckput "ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃœ"-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑put dupliCheck(checkList) into checkList-- -- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ､窶佚‡ﾃεｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑-- put groupDupliCheck(checkList) into checkListput item 1 of checkList into gListput item 2 of checkList into iListif the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" thenput gList & iList into checkListelseput iList & gList into checkListend ifput checkList into bg fld id 11end DupliCheck-- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ､窶佚‡ﾃεｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑function groupDupliCheck checkListput item 1 of checkList into gListput item 2 of checkList into iListput the number of lines of gList into glnif gln > 1 thenrepeat with r = gln down to 2put line r of gList into gNameput gList into wListdelete line r of wListput groupList(item 1 of divName(gName)) after wListput the number of lines of wList into wln1put dupliCheck(wList) into wListput the number of lines of wList into wln2if wln1 > wln2 thenput item 1 of wList into gListput item 2 of wList after iListend ifend repeatend ifreturn gList &","& iListend groupDupliCheck</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>95</top>
            <right>493</right>
            <bottom>135</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24003</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
        <script>on mouseUpput postPath() into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,,"postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ‡ﾂｩﾃ‡ﾃ"end ifend mouseUp</script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>404</left>
            <top>95</top>
            <right>444</right>
            <bottom>135</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26000</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>extend</textStyle>
        <name>Editorﾃ｣Nﾃｬﾃ†</name>
        <script>on mouseUpput bg fld id 42 into filePathput EditorPath() into editorif filePath <> empty thenset the cursor to watchif there is not a file filePath thenanswer file quote& pathToFile(filePath) &quote&& "ﾃ‡ﾃ陛‡ﾂｫﾃ‡ﾂｱﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" of type textif it is empty thenexit mouseUpend ifput it into filePathend ifopen filePath with editorelseopen editorend ifend mouseUp</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>5</top>
            <right>505</right>
            <bottom>23</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>createMark</name>
        <script>on mouseUpset marked of this card to hilite of meend mouseUp</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>22</left>
            <top>99</top>
            <right>348</right>
            <bottom>115</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpif the optionKey is down thenput empty into meelseget postPath()if it <> empty then MtSetDefaultDir itanswer file "MAILﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃ陛‡ﾂｫﾃ‡ﾃ催‡竕暗‡竏妥‡ﾂｩﾃ③" of type textif it is not empty then put it into meend ifend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>224</left>
            <top>79</top>
            <right>393</right>
            <bottom>193</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseLeaveglobal CNMeditTextif the short id of this bg is 3798 thenif CNMeditText is true thensortIDList 11put false into CNMeditTextend ifget the selectedText of me <> emptyset the enabled of bg btn id 26 to itif it then select line 0 of bg fld id 12get the selectedText of bg fld id 12 <> emptyset the enabled of bg btn id 24 to itend ifpass mouseLeaveend mouseLeaveon mouseUpset the cursor to watchselect line 0 of bg fld id 12put the selectedText of me into cTextif cText is empty then exit mouseUpget divName(cText)put item 1 of it into UserIDput item 2 of it into Handlewait 5if the mouseClick then  -- ﾃ 竏づｪﾃ甘嘉､ﾃ厩ﾃ曳ﾃ‡ﾃｷset the hilite of bg btn id 63 to truesend "mouseUp" to bg btn id 63set the hilite of bg btn id 63 to false-- select line 0 of meelsedisable bg btn id 24enable bg btn id 26end ifend mouseUp</script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>404</left>
            <top>47</top>
            <right>444</right>
            <bottom>87</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24105</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
        <script>on mouseUpglobal CNMeditTextlock screenput (the shiftKey is down) into sftput bg fld id 42 into filePathif filePath is empty or there is not a file filePath or the optionKey is down thenget postPath()if it <> empty then MtSetDefaultDir itanswer file "MAILﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" of type "text"if it is empty then exit mouseUpput it into filePathput filePath into bg fld id 42end ifput PathToFile(filePath) into fileNameput fileName into bg fld id 48set the cursor to watchopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifread from file filePath for 30000put it into theTextclose file filePathput false into CNMeditTextif sft is false thenput delUPLoadCommand(theText) into theTextput theText into wTextput address(theText) into theTexthide msgif theText <> wText thenput true into CNMeditTextend ifend ifput theText into bg fld id 46set the width of bg fld id 48 to length (bg fld id 48) * 9show bg fld id 46show bg fld id 48show bg btn id 47show bg btn id 49setScrollFld "bg fld id 46"unlock screen with zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>147</top>
            <right>489</right>
            <bottom>167</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｪVﾃ｣Kﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｧﾃ湘ｪﾂｨ</name>
        <script>on mouseUpglobal CNMeditTextset the cursor to watchput (the optionKey is down) into oplock screenput empty into bg fld id 42put "Untitled" into bg fld id 48set the width of bg fld id 48 to length (bg fld id 48) * 9put true into CNMeditTextput address() into theTexthide msgget cd fld "UserName" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"if it <> empty thenput "FROM:" & it after theTextend ifput "/POST" & return into line 15 of theTextput EditorPath() into EditorPathif EditorPath is empty or op is false thenput theText into bg fld id 46show bg fld id 46show bg fld id 48show bg btn id 47show bg btn id 49setScrollFld "bg fld id 46"unlock screen with zoom open fastelseput postPath() into postPathput MAILfileName() into fileNameput postPath & fileName into filePathMtWriteFile filePath,theText,EditorCreator()put filePath into bg fld id 42open filePath with EditorPathend ifend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>176</top>
            <right>489</right>
            <bottom>196</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉…ﾃ…[ﾃ嘉｣ ﾃｯ窶愿ｨW</name>
        <script>on mouseUpglobal CNMeditTextput false into CNMeditTextset the cursor to watchlock screenif bg fld id 48 is empty then put "Untitled" into bg fld id 48set the width of bg fld id 48 to length (bg fld id 48) * 9show bg fld id 46show bg fld id 48show bg btn id 47show bg btn id 49setScrollFld "bg fld id 46"unlock screen with zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>46</top>
            <right>505</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldglobal CNMeditTextput true into CNMeditTextend closeField</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>326</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BookMark</name>
        <script>on mouseUpsetBookmarkend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>476</left>
            <top>314</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>BookMarkNo</name>
        <script></script>
    </part>
    <part>
        <id>55</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>317</top>
            <right>430</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13303</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGOPrevBMend mouseUp</script>
    </part>
    <part>
        <id>56</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>449</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13304</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGONextBMend mouseUp</script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>319</top>
            <right>31</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoHome</name>
        <script>on mouseUpgoHomeend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>28</top>
            <right>505</right>
            <bottom>99</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenuList</name>
        <script></script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>448</left>
            <top>6</top>
            <right>466</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12490</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>openGuide</name>
        <script>on mouseUpCNMGuide "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM"end mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>160</left>
            <top>318</top>
            <right>274</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃｯ窶愿ｨW</name>
        <script>on mouseUpvisual effect dissolve very fastgo to cd "10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑"end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>28</top>
            <right>505</right>
            <bottom>47</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-1</titleWidth>
        <icon>-1</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FieldTitleBar</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>220</left>
            <top>29</top>
            <right>292</right>
            <bottom>46</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>16</left>
            <top>31</top>
            <right>29</right>
            <bottom>44</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 0end ifend mouseStillDownon mouseUp opglobal CNMeditTextset the icon of me to 0select emptylock screenset the cursor to watchif (CNMeditText is true or the optionKey is down or op is true) and bg fld id 46 <> empty thenif op <> true then beepanswer "ﾃｯﾅ禿ｧXﾃｬ窶｡ﾃｳeﾃ‡ï｣ｿﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit mouseUp-- end if-- if it is "Yes" or op is true thenif it is "Yes" thenput bg fld id 42 into filePathif filePath is empty or there is not a file filePath thenput bg fld id 48 into fileNameif fileName is "Untitled" thenput MAILfileName() into fileNameend ifget postPath()-- put it & fileName into filePathif it <> empty then MtSetDefaultDir itask file "ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ‡ï｣ｿﾃｯ竄ｬﾃｫ竏づ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with fileNameif the result <> empty then exit mouseUpput it into filePathend ifput delUPLoadCommand(bg fld id 46) into theTextMtWriteFile filePath,theText,EditorCreator()put filePath into bg fld id 42put pathToFile(filePath) into bg fld id 48-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津‡ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathhide msgend ifend ifif op <> true thenhide bg fld id 46hide bg fld id 48hide bg btn id 47hide bg btn id 49put false into CNMeditTextsetScrollFld "bg fld id 12"unlock screen with zoom close fastend ifend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>6</top>
            <right>485</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6356</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpON/OFF</name>
        <script>on mouseUpHelpToggleend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM</text>
    </content>
    <content>
        <layer>background</layer>
        <id>51</id>
        <text>0 / 0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>3</id>
        <text>Untitled_1</text>
    </content>
    <name>ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃｳﾃｪM</name>
    <script>on closeCardif the visible of bg fld id 46 then send "mouseUp" to bg btn id 49pass closeCardend closeCardon closebackgroundlock screenif the visible of bg fld id 18 then send "mouseUp UserID" to bg btn id 20set the scroll of bg fld id 12 to 0select line 0 of bg fld id 12select line 0 of bg fld id 18disable bg btn id 24disable bg btn id 26put bg fld id 12 into bg fld id 12 of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ"unlock screenhide msgpass closeBackgroundend closebackgroundon commandKeyDown whichKeyif whichKey is "s" thenif the visible of bg fld id 46 then send "mouseUp true" to bg btn id 49else pass commandKeyDownelse if whichKey is "w" thenif the visible of bg fld id 46 then send "mouseUp" to bg btn id 49else pass commandKeyDownelse pass commandKeyDownend commandKeyDownon controlKey whichKeyif whichKey = 1 then -- A "ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•"sendBtn "bg btn id 21"else if whichKey = 4 then -- D "postﾃｧﾃ古ｨﾃｺ"sendBtn "bg btn id 39"else if whichKey = 7 then -- Gif the hilite of bg btn id 23 then send "mouseUp" to bg btn id 22else  send "mouseUp" to bg btn id 23else if whichKey = 5 then -- E "ﾃｯ窶愿ｨW"sendBtn "bg btn id 45"else if whichKey = 14 then -- N "ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ"sendBtn "bg btn id 44"else if whichKey = 15 then -- O "ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃ…[ﾃ｣Nﾃｬﾃ†"sendBtn "bg btn id 40"else if whichKey = 18 then -- R "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ"sendBtn "bg btn id 43"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeput "8,10,11,18,42,46,60" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatput "Untitled" into bg fld id 48set the name of bg btn id 20 to emptyif mode thenif the number of lines of bg fld "subMenuList" < 2 then put empty into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearDataon allclearDataclearDataset the name of bg btn id 20 to emptyput empty into bg fld id 12put empty into bg fld id 18end allclearData-- ﾃｱﾂｺﾃｫO / IDﾃｬﾂｸﾃｳﾃ•function enterUserName UserID,Handle,modeput "ID / Internet (INET:) / FAXﾃｮ窶佚ｧﾃœ (Fxxx-xxx-xxxx),ﾃｱﾂｺﾃｫOﾃ⑿ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ⒀," into promptif "ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•" is in the target thenput "ID / ﾃｱﾂｺﾃｫOﾃｬﾂｸﾃｳﾃ•" into titleget "ﾃ ﾃ催､ﾃ｡ﾃｬﾂｸﾃｳﾃ•"if mode is true then put "ﾃ 竏づｪﾃŠ,IDﾃ嘉､ﾃ厩ﾃ曳,ﾃｳﾂｺﾃｯﾋš" into rBtnelse put "IDﾃ嘉､ﾃ厩ﾃ曳,ﾃ 竏づｪﾃŠ,ﾃｳﾂｺﾃｯﾋš" into rBtnelseput "ID / ﾃｱﾂｺﾃｫO ﾃｯﾅ禿ｧX" into titleget emptyput empty into rBtnend ifget InputDialog(title,prompt,UserID & "," & Handle,"OK,Cancel," & it,rBtn)if line 2 of it is "ﾃ ﾃ催､ﾃ｡ﾃｬﾂｸﾃｳﾃ•" then return itput line 3 of it into UserIDif line 2 of it is "Cancel" or UserID is empty then return emptyput line 3 of it into UserIDput checkID(UserID) into nifIDif "-" is in UserID and "@" is not in UserID thenif char 1 of UserID <> "F" then put "F" before UserIDelse put "F" into char 1 of UserIDput 0 into cnput UserID into cIDrepeat until "-" is not in cIDput offset("-",cID) into xnadd 1 to cndelete char 1 to xn of cIDend repeatif cn < 2 thenbeepanswer "FAXﾃｮ窶佚ｧﾃ愿‡ﾃ陛ｩsﾃ､Oﾃ｣ﾂｫﾃｮ窶佚‡ﾂｩﾃ‡ﾃﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"return emptyend ifelse if "@" is in UserID and "." is in UserID thenif char 1 to 5 of UserID <> "INET:" then put "INET:" before UserIDelse put "INET:" into char 1 to 5 of UserIDelse if nifID is false and "." is not in UserID thenbeepanswer "IDﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"return emptyend ifput line 4 of it into Handleif length(Handle) > 16 then return emptyif nifID then put upperLower(UserID) into UserIDput UserID & tab & Handle into line 3 to 4 of itreturn itend enterUserNameon sendEnterUName UserID,Handlereturn enterUserName(UserID,Handle)end sendEnterUName-- ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃｷﾃ‡ﾃεｱﾂｺﾃｫO / IDﾃｬﾂｸﾃｳﾃ•on putIDHandle uNameList,fIDlock screenrepeat with r = 1 to the number of lines of uNameListset cursor to busyput line r of uNameList into uNameget divName(uName)put item 1 of it into UserIDput item 2 of it into Handleput bg fld id fID into listput MtScanList(list,uName,,true) into xif list <> empty and x <> empty then next repeatif IDCheck(bg fld id fID,UserID) thenanswer quote&UserID&quote&&Handle& "ﾃ‡竕･ﾃ‡ﾃ津‡竏†ﾃｬﾃ佚‡竏‚IDﾃ‡邃｢ﾃｧ窶ｺﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③ﾃｬﾂｸﾃ‡ﾃ催ｫﾃｷﾃ‡ﾂｶﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ③" with "Cancel" or "OK"if it is "OK" thenput bg fld id fID into nlistput the number of lines of nList into tlndelete char 1 to (offset(UserID,nList) - 1) of nListput tln - the number of lines of nList + 1 into lnput uName into line ln of bg fld id fIDend ifelseif uName is not in bg fld id fID then put uName & return after bg fld id fIDend ifend repeat-- sortIDList 12end putIDHandle-- ﾃｬﾂｸﾃｳﾃ肘Dﾃ‡ﾃεｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑function IDCheck idList,UserIDrepeat while UserID is in idListdelete char 1 to (offset(UserID,idList) - 1) of idListget char 1 to (offset(tab,idList) - 1) of idListif it is UserID then return trueelse delete line 1 of UserIDend repeatreturn falseend IDCheck-- "tab" -> ","function divName nput "," into char offset(tab,n) of nreturn nend divName-- IDﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃｱﾂｺﾃ嘉､ﾃ厩ﾃ曳ﾃ‡ﾃεｯﾂｿﾃ‡笳甘ｫﾃｷﾃ‡ﾂｶon sortIDList fIDput bg fld id fID into iListget divList(iList)put item 1 of it into gListput item 2 of it into iListsort lines of iList internationalsort lines of gList internationalif the hilite of bg btn "ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益" thenput gList & iList into bg fld id fIDelseput iList & gList into bg fld id fIDend ifend sortIDList-- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃｭﾃ､ﾃｨofunction groupList groupNameput cd fld id 1 of cd "10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑" into addListput "[" & putSpace(groupName,16,"L") & "]" into groupNameput item 1 of MtScanList(addList,groupName) into Lif L <> empty thenput the number of lines of addList into nput n into p2put MtScanList(addList,"]                   ") into GListput the number of lines of GList into Gnrepeat with r = 1 to Gnget item 1 of line r of GListif it > L thenput (it - 1) into p2exit repeatelse if r = Gn thenput it into p1put n into p2elseput it into p1end ifend repeatput line (p1 + 1) to p2 of addList into IDlistput the number of lines of IDList into nrepeat with r = 1 to nget line r of IDlistdelete char 1 to 2 of itif the length of item 1 of it is 18 then put 3 into i else put 2 into iif item i of it is "                  " then subtract 1 from iput extTxt(item i of it) into handleput offset("@",handle) into xif x <> 0 and "." is in handle then put char 6 to (x - 1) of handle into handleput extTxt(item 1 of it) & tab & handle into line r of IDlistend repeatreturn IDlistend ifend groupListon sendgroupList groupNamereturn groupList(groupName)end sendgroupListfunction extTxt txtput the number of words of txt into nreturn word 1 to n of txtend extTxt-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑function dupliCheck iListget divList (iList)put item 1 of it into gListput item 2 of it into iListput empty into gIDListrepeat with r = 1 to the number of lines of gListput groupList(item 1 of divName(line r of gList)) after gIDListend repeatrepeat with r = the number of lines of iList down to 1put line r of iList into idNameif item 1 of divName(idName) is in gIDList thendelete line r of iListend ifend repeatreturn gList &","& iListend dupliCheck----- ﾃ碓ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾃεｯ邃｢ﾃｳﾂ｣ -----function divList iListput empty into gListrepeat with r = the number of lines of iList down to 1set cursor to busyget line r of iListif it contains "ﾃ①ﾃ⒣\｢ﾃ①" thenput it & return before gListdelete line r of iListend ifend repeatreturn gList &","& iListend divList----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMvariableList,cNM_MAILset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝‡邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ‡竕暗‡竏妥③",cdNameexit makeMacroend if-- ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑send "DupliCheck" to bg btn id 35put bg fld id 8 into fileListrepeat with r = 1 to the number of lines of fileListput line r of fileList into filePathif filePath is empty then next repeatput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ…[ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ---> postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲send "upLoadFileCopy filePath" to first cd of bg "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄"get the resultif "ﾃ烏ﾃ嘉｢ﾃ…[" is in it thenmakeMacroError it,"ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③",cdNameexit makeMacroelseput PathToFile(filePath) into upFileNameput it & return after cNMmacroReportend ifput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"-- GO MAILif MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"get MacroGoMail()put it after cNM_MAILend ifput Macro1(upFileName) after cNM_MAILend repeatput "*: TotalLabel : 0" & return after cNM_MAILput bg fld id 10 into oldtitleif "ﾃ⒇ﾃ…t" is in oldtitle or "ﾃ⒇Sﾃ…t" is in oldtitle thenput nextSMailTitle(oldtitle) into bg fld id 10put nextSMailTitle(bg fld id 60) into bg fld id 60end ifend makeMacrofunction Macro1 upFileNameput "m: ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄" & return &ﾂｬ"s:UPL TYPE:BIN PROT:BPL^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & upFileName & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ､Jﾃｩnﾃ❶" & return &ﾂｬ"+:1" & return &ﾂｬ"*:ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃｨIﾃｳﾏ\" & return &ﾂｬ"*:ﾃｫﾃ凝ｱﾂｺ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"+:0" & return &ﾂｬ"s:" & bg fld id 10 & "^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return into mput bg fld id 11 into adListput min(the number of lines of adList,10) into lnrepeat with r = 1 to lnget item 1 of divName(line r of adList)put "*:ﾃ 竏づｪﾃŠ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & it & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return after mend repeatif ln < 10 thenput "*:ﾃ 竏づｪﾃŠ" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return after mend ifput "*:ﾃｫﾃｳﾃｪM" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mMAIL>" & return after mreturn mend Macro1function dataCheckput empty into rtput bg fld id 8 into fileListif fileList <> empty thenrepeat with r = 1 to the number of lines of fileListget line r of fileListif there is not a file (it) then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦" & quote & it & quote & "ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtend repeatelseput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtend ifif bg fld id 42 <> empty and there is not a file (bg fld id 42) then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtif bg fld id 42 is empty and "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ…[" is in the target then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtif bg fld id 10 is empty then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ…[ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｫﾃ凝ｱﾂｺﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtput bg fld id 11 into listrepeat with r = the number of lines of list down to 1get line r of listif char 1 to 5 of it is "INET:" or (char 1 of it is "F" and "-" is in char 1 to offset(tab,it) of it) thendelete line r of listend ifend repeatput list into bg fld id 11if list is empty then put "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ 竏づｪﾃ甘‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after rtreturn rtend dataCheckfunction UPLoadCommand theTextput bg fld id 8 into filePathListif filePathList <> empty thenput path2file(filePathList) into fileNameListelseput empty into fileNameListend ifput "#TT:" & bg fld id 10 & return before theTextrepeat with r = the number of lines of fileNameList down to 1get line r of fileNameListput "#FN:" & it & return before theTextend repeatreturn theTextend UPLoadCommandfunction address theTextsend "DupliCheck" to bg btn id 35hide msgput empty into delLinerepeat with r = 1 to the number of lines of theTextget char 1 to 3 of line r of theTextif it is "TO:" thenput r & "," after delLineelseif last char of line (r - 1) of theText is "," thenput r & "," after delLineend ifexit repeatend ifend repeatrepeat with r = the number of items of delLine down to 1delete line (item r of delLine) of theTextend repeatput empty into adCommmand1put "TO:" into adCommmand2put bg fld id 11 into adListput the number of lines of adList into lnrepeat with r = ln down to 1if r > 10 thendelete line r of adListnext repeatend ifget item 1 of divName(line r of adList)if (char 1 of it is "F" and "-" is in it) or (char 1 to 5 of it is "INET:") thenput "TO:" & it & return before adCommmand1delete line r of adListend ifend repeatput the number of lines of adList into lnrepeat with r = 1 to lnget item 1 of divName(line r of adList)if length(last line of adCommmand2 & it) > 78 thenput return after adCommmand2end ifput it & "," after adCommmand2end repeatif last char of adCommmand2 is "," thenput return into last char of adCommmand2elseput return after adCommmand2end ifif "SUBJ:" is not in theText and "SUB:" is not in theText thenput "SUBJ:" & bg fld id 60 & return before theTextend ifput adCommmand1 & adCommmand2 before theTextreturn theTextend addressfunction MAILfileNameput "MAIL-1" into fileNameput fileListInFldr(postPath()) into FileListif FileList <> empty thenput changeName(fileName,FileList,"-") into fileNameend ifreturn fileNameend MAILfileName-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｧﾃ古ｨﾃｺ --function delUPLoadCommand theTextrepeat with r = 1 to the number of lines of theTextget char 1 to 4 of line r of theTextif it <> "#FN:" and it <> "#TT:" and it <> "#KY:" thenif r > 1 then delete line 1 to (r - 1) of theTextexit repeatend ifend repeatreturn theTextend delUPLoadCommandfunction nextSMailTitle oldtitleput empty into newtitlerepeat until "-" is not in oldtitleput offset("-",oldtitle) into xput char 1 to x of oldtitle after newtitledelete char 1 to x of oldtitleend repeatif oldtitle is a integer thenput oldtitle + 1 after newtitleelseput oldtitle after newtitleend ifreturn newtitleend nextSMailTitleon GComBtnreturn "bg btn id 13"end GComBtnon scrFldsetScrollFld "bg fld id 12"end scrFld</script>
</background>